'Taken strait out of my private crypter this removes all information, icon etc from the file. It is in all good crypters and is a great addition.


Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Integer) As Integer
    Public Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Integer, ByVal fDiscard As Integer) As Integer
    Public Function NullFileInfo(ByRef File As String) As Object
        Dim Handle As Integer
        Handle = BeginUpdateResource(File, 1)
        Call EndUpdateResource(Handle, 0)
    End Function

'call
NullFileInfo("Path to exe here")